results %>% 
  count(athlete_name, name = "Number of Parkruns")
## # A tibble: 6 × 2
##   athlete_name `Number of Parkruns`
##   <chr>                       <int>
## 1 Bella                          38
## 2 George                          2
## 3 Kat                            15
## 4 Lucia                          12
## 5 Matt                           72
## 6 Zach                           30